home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / format.fpl < prev    next >
Text File  |  1995-07-18  |  796b  |  38 lines
  1. export void Format()
  2. {
  3.     int i,l1,l2,r;
  4.     char c;
  5.   int byte=ReadInfo("byte_position"), line=ReadInfo("line");
  6.     Visible(0);
  7.     while((GetChar()!='\n'|| ReadInfo("byte_position")!=0) && (l1=ReadInfo("line"))!=1)
  8.     {
  9.         CursorUp();
  10.     }
  11.     GotoLine(l1,0);
  12.     if(Search("\n\n" ,"fw+"))
  13.         GotoLine(ReadInfo("lines")-1);
  14.     l2=ReadInfo("line");
  15.     GotoLine(l1,0);
  16.     for(i=0;i<(l2-l1);i++)
  17.         Replace(2, "\n", " ", "fw+");
  18.     r=ReadInfo("wall_right");
  19.     GotoLine(l1,r);
  20.     while((c=GetChar())!='\n')
  21.     {
  22.         i= ReadInfo("byte_position");
  23.         while(GetChar(--i) != ' ' && i);
  24.         if(!i)
  25.             return;
  26.         GotoLine(l1,i);
  27.         Delete();
  28.         Output("\n");
  29.         GotoLine(++l1,r);
  30.     }
  31.   GotoLine(line, byte);
  32.     Visible(1);
  33. }
  34.         
  35. MenuAdd("i", "Format", "Format();", "Amiga f", 4);
  36. MenuBuild();
  37. ConstructInfo("wall_right", "", "", "WIL", "", 0, 999, 79);
  38.